inherited fmAddEditDoljnostFood: TfmAddEditDoljnostFood
  Left = 124
  Top = 109
  Width = 418
  Height = 317
  Caption = #1054#1087#1088#1077#1076#1077#1083#1080#1090#1100' '#1087#1088#1080#1077#1084#1099' '#1087#1080#1097#1080' '#1087#1086' '#1075#1088#1091#1087#1087#1072#1084' '#1084#1077#1085#1102
  Constraints.MinHeight = 317
  Constraints.MinWidth = 418
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  inherited sbBottom: TStatusBar
    Top = 252
    Width = 402
  end
  inherited Panel1: TPanel
    Width = 402
    inherited BitBtn1: TBitBtn
      Left = 227
    end
    inherited BitBtn2: TBitBtn
      Left = 315
    end
  end
  object dxBarDockControl1: TdxBarDockControl [2]
    Left = 0
    Top = 45
    Width = 402
    Height = 22
    Align = dalTop
    BarManager = dxBarManager1
  end
  object dbgDoljnost: TcxGrid [3]
    Left = 0
    Top = 67
    Width = 402
    Height = 185
    Align = alClient
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'Tahoma'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 7
    LookAndFeel.Kind = lfStandard
    object tvDoljnost: TcxGridDBTableView
      NavigatorButtons.ConfirmDelete = False
      NavigatorButtons.First.Visible = True
      NavigatorButtons.PriorPage.Visible = True
      NavigatorButtons.Prior.Visible = True
      NavigatorButtons.Next.Visible = True
      NavigatorButtons.NextPage.Visible = True
      NavigatorButtons.Last.Visible = True
      NavigatorButtons.Insert.Visible = False
      NavigatorButtons.Append.Visible = False
      NavigatorButtons.Delete.Visible = False
      NavigatorButtons.Edit.Visible = False
      NavigatorButtons.Post.Visible = False
      NavigatorButtons.Cancel.Visible = False
      NavigatorButtons.Refresh.Visible = False
      NavigatorButtons.SaveBookmark.Visible = False
      NavigatorButtons.GotoBookmark.Enabled = False
      NavigatorButtons.GotoBookmark.Visible = False
      NavigatorButtons.Filter.Visible = False
      FilterBox.CustomizeDialog = False
      FilterBox.Visible = fvNever
      DataController.DataSource = dsFood
      DataController.Summary.DefaultGroupSummaryItems = <>
      DataController.Summary.FooterSummaryItems = <
        item
          Format = '#,###0'
          Kind = skCount
          FieldName = 'PLASTNAME'
        end
        item
          Format = '#,###0'
          Kind = skSum
          FieldName = 'DFAMOUNT_DOPL'
        end
        item
          Format = '#,###0'
          Kind = skSum
          FieldName = 'DFAMOUNT'
        end
        item
          Format = '#,###0'
          Kind = skSum
          FieldName = 'SUM_VYPL'
        end
        item
          Format = '#,###0'
          Kind = skSum
          FieldName = 'VYPL_BUHG'
        end
        item
          Format = '#,###0'
          Kind = skSum
          FieldName = 'VYPL_WHITE'
        end>
      DataController.Summary.SummaryGroups = <>
      DataController.Summary.Options = [soNullIgnore]
      OptionsBehavior.CellHints = True
      OptionsBehavior.FocusFirstCellOnNewRecord = True
      OptionsBehavior.IncSearch = True
      OptionsCustomize.ColumnFiltering = False
      OptionsCustomize.ColumnGrouping = False
      OptionsCustomize.ColumnSorting = False
      OptionsData.CancelOnExit = False
      OptionsData.Deleting = False
      OptionsData.DeletingConfirmation = False
      OptionsData.Inserting = False
      OptionsView.NavigatorOffset = 5
      OptionsView.NoDataToDisplayInfoText = '<'#1053#1077#1090' '#1076#1072#1085#1085#1099#1093'>'
      OptionsView.CellAutoHeight = True
      OptionsView.CellTextMaxLineCount = 1
      OptionsView.ColumnAutoWidth = True
      OptionsView.ExpandButtonsForEmptyDetails = False
      OptionsView.GroupByBox = False
      OptionsView.HeaderEndEllipsis = True
      OptionsView.Indicator = True
      OptionsView.ShowColumnFilterButtons = sfbAlways
      Styles.Content = DMInv.cxData
      Styles.IncSearch = DMInv.cxGreenText
      Styles.Header = DMInv.cxSiniyText
      object tvDoljnostPRIEM_EDY: TcxGridDBColumn
        Caption = #1055#1088#1080#1077#1084' '#1087#1080#1097#1080
        DataBinding.FieldName = 'DMFOODID'
        PropertiesClassName = 'TcxLookupComboBoxProperties'
        Properties.KeyFieldNames = 'SDID'
        Properties.ListColumns = <
          item
            FieldName = 'SDNAME'
          end>
        Properties.ListOptions.ShowHeader = False
        Properties.ListSource = dsFoodID
      end
      object tvDoljnostMENUTYPE: TcxGridDBColumn
        Caption = #1058#1080#1087' '#1084#1077#1085#1102' ('#1089' '#1082#1077#1084' '#1077#1089#1090')'
        DataBinding.FieldName = 'DMMENUTYPE'
        PropertiesClassName = 'TcxLookupComboBoxProperties'
        Properties.KeyFieldNames = 'SDID'
        Properties.ListColumns = <
          item
            FieldName = 'SDNAME'
          end>
        Properties.ListOptions.ShowHeader = False
        Properties.ListSource = dsMenuType
      end
    end
    object cxGridLevel2: TcxGridLevel
      GridView = tvDoljnost
    end
  end
  object dsFood: TDataSource
    DataSet = qFood
    Left = 64
    Top = 88
  end
  object qFood: TIBQuery
    Database = DMInv.DBRead
    Transaction = DMInv.IBTransaction1
    AfterInsert = qFoodAfterInsert
    BeforeOpen = qFoodBeforeOpen
    CachedUpdates = True
    DataSource = dlgDS
    SQL.Strings = (
      'SELECT dm.*, sd.SDNAME AS menutype, sd1.SDNAME AS priem_edy'
      'FROM DOLJNOST_MENU dm'
      'INNER JOIN SYS_DIC SD ON SD.SDID = dm.DMMENUTYPE'
      'INNER JOIN SYS_DIC SD1 ON SD1.SDID = dm.DMFOODID'
      'WHERE dm.DPID = :dpid')
    UpdateObject = quFood
    GeneratorField.Field = 'DMID'
    GeneratorField.Generator = 'GEN_DOLJNOST_MENU_ID'
    Left = 102
    Top = 88
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'dpid'
        ParamType = ptUnknown
      end>
    object qFoodDMID: TIntegerField
      FieldName = 'DMID'
      Origin = '"DOLJNOST_MENU"."DMID"'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object qFoodDPID: TIntegerField
      FieldName = 'DPID'
      Origin = '"DOLJNOST_MENU"."DPID"'
    end
    object qFoodDMFOODID: TIntegerField
      FieldName = 'DMFOODID'
      Origin = '"DOLJNOST_MENU"."DMFOODID"'
    end
    object qFoodDMMENUTYPE: TIntegerField
      FieldName = 'DMMENUTYPE'
      Origin = '"DOLJNOST_MENU"."DMMENUTYPE"'
    end
    object qFoodDMUSERENTER: TIBStringField
      FieldName = 'DMUSERENTER'
      Origin = '"DOLJNOST_MENU"."DMUSERENTER"'
      Size = 40
    end
    object qFoodDMTIMEENTER: TDateTimeField
      FieldName = 'DMTIMEENTER'
      Origin = '"DOLJNOST_MENU"."DMTIMEENTER"'
    end
    object qFoodDMUSEREDIT: TIBStringField
      FieldName = 'DMUSEREDIT'
      Origin = '"DOLJNOST_MENU"."DMUSEREDIT"'
      Size = 40
    end
    object qFoodDMTIMEEDIT: TDateTimeField
      FieldName = 'DMTIMEEDIT'
      Origin = '"DOLJNOST_MENU"."DMTIMEEDIT"'
    end
    object qFoodMENUTYPE: TIBStringField
      FieldName = 'MENUTYPE'
      Origin = '"SYS_DIC"."SDNAME"'
      Size = 255
    end
    object qFoodPRIEM_EDY: TIBStringField
      FieldName = 'PRIEM_EDY'
      Origin = '"SYS_DIC"."SDNAME"'
      Size = 255
    end
  end
  object quFood: TIBUpdateSQL
    RefreshSQL.Strings = (
      'Select '
      '  DMID,'
      '  DPID,'
      '  DMFOODID,'
      '  DMMENUTYPE,'
      '  DMUSERENTER,'
      '  DMTIMEENTER,'
      '  DMUSEREDIT,'
      '  DMTIMEEDIT'
      'from DOLJNOST_MENU '
      'where'
      '  DMID = :DMID')
    ModifySQL.Strings = (
      'update DOLJNOST_MENU'
      'set'
      '  DMFOODID = :DMFOODID,'
      '  DMID = :DMID,'
      '  DMMENUTYPE = :DMMENUTYPE,'
      '  DPID = :DPID'
      'where'
      '  DMID = :OLD_DMID')
    InsertSQL.Strings = (
      'insert into DOLJNOST_MENU'
      '  (DMFOODID, DMID, DMMENUTYPE, DPID)'
      'values'
      '  (:DMFOODID, :DMID, :DMMENUTYPE, :DPID)')
    DeleteSQL.Strings = (
      'delete from DOLJNOST_MENU'
      'where'
      '  DMID = :OLD_DMID')
    Left = 136
    Top = 88
  end
  object qMenuType: TIBQuery
    Database = DMInv.DBRead
    Transaction = DMInv.IBTransaction1
    SQL.Strings = (
      'SELECT t1.sdparid, t1.sdid, t1.sdname, t1.SDISDELETE'
      'FROM'
      '('
      'WITH   recursive'
      '   tree (SDNAME, SDID, SDPARID, SDISDELETE)'
      
        '   AS (SELECT SD.SDNAME, SD.SDID, sd.SDPARID, sd.SDISDELETE FROM' +
        ' SYS_DIC SD'
      '      WHERE sd.SDPARID = 42'
      '      UNION ALL'
      '      SELECT SD1.SDNAME, SD1.SDID, sd1.SDPARID, sd1.SDISDELETE'
      ''
      '      FROM SYS_DIC SD1'
      '          INNER JOIN tree t '
      '           ON t.sdid = sd1.SDPARID)'
      ' SELECT  SDNAME, SDID, SDPARID, SDISDELETE FROM tree t'
      ') AS t1'
      'WHERE t1.SDISDELETE = 0'
      'order by 3')
    Left = 128
    Top = 152
    object qMenuTypeSDPARID: TIntegerField
      FieldName = 'SDPARID'
      ProviderFlags = []
    end
    object qMenuTypeSDID: TIntegerField
      FieldName = 'SDID'
      ProviderFlags = []
    end
    object qMenuTypeSDNAME: TIBStringField
      FieldName = 'SDNAME'
      ProviderFlags = []
      Size = 255
    end
    object qMenuTypeSDISDELETE: TIntegerField
      FieldName = 'SDISDELETE'
      ProviderFlags = []
    end
  end
  object dsMenuType: TDataSource
    DataSet = qMenuType
    Left = 80
    Top = 152
  end
  object dsFoodID: TDataSource
    DataSet = qFoodID
    Left = 80
    Top = 192
  end
  object qFoodID: TIBQuery
    Database = DMInv.DBRead
    Transaction = DMInv.IBTransaction1
    SQL.Strings = (
      'SELECT t1.sdparid, t1.sdid, t1.sdname, t1.SDISDELETE'
      'FROM'
      '('
      'WITH   recursive'
      '   tree (SDNAME, SDID, SDPARID, SDISDELETE)'
      
        '   AS (SELECT SD.SDNAME, SD.SDID, sd.SDPARID, sd.SDISDELETE FROM' +
        ' SYS_DIC SD'
      '      WHERE sd.SDPARID = 41'
      '      UNION ALL'
      '      SELECT SD1.SDNAME, SD1.SDID, sd1.SDPARID, sd1.SDISDELETE'
      ''
      '      FROM SYS_DIC SD1'
      '          INNER JOIN tree t '
      '           ON t.sdid = sd1.SDPARID)'
      ' SELECT  SDNAME, SDID, SDPARID, SDISDELETE FROM tree t'
      ') AS t1'
      'WHERE t1.SDISDELETE = 0'
      'order by 3')
    Left = 128
    Top = 192
    object qFoodIDSDPARID: TIntegerField
      FieldName = 'SDPARID'
      ProviderFlags = []
    end
    object qFoodIDSDID: TIntegerField
      FieldName = 'SDID'
      ProviderFlags = []
    end
    object qFoodIDSDNAME: TIBStringField
      FieldName = 'SDNAME'
      ProviderFlags = []
      Size = 255
    end
    object qFoodIDSDISDELETE: TIntegerField
      FieldName = 'SDISDELETE'
      ProviderFlags = []
    end
  end
  object dxBarManager1: TdxBarManager
    AllowReset = False
    AlwaysSaveText = True
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = 'Segoe UI'
    Font.Style = []
    Categories.Strings = (
      'Default')
    Categories.ItemsVisibles = (
      2)
    Categories.Visibles = (
      True)
    ImageOptions.Images = DMInv.cxSmallImages
    LookAndFeel.SkinName = ''
    NotDocking = [dsNone, dsLeft, dsTop, dsRight, dsBottom]
    PopupMenuLinks = <>
    Style = bmsUseLookAndFeel
    UseSystemFont = True
    Left = 344
    Top = 131
    DockControlHeights = (
      0
      0
      0
      0)
    object dxBarManager1Bar2: TdxBar
      AllowClose = False
      AllowCustomizing = False
      AllowQuickCustomizing = False
      AllowReset = False
      BorderStyle = bbsNone
      Caption = 'Custom 2'
      CaptionButtons = <>
      DockControl = dxBarDockControl1
      DockedDockControl = dxBarDockControl1
      DockedLeft = 0
      DockedTop = 0
      FloatLeft = 154
      FloatTop = 115
      FloatClientWidth = 51
      FloatClientHeight = 22
      ItemLinks = <
        item
          Visible = True
          ItemName = 'dxBarButton4'
        end
        item
          Visible = True
          ItemName = 'dxBarButton6'
        end>
      NotDocking = [dsNone, dsLeft, dsTop, dsRight, dsBottom]
      OneOnRow = True
      Row = 0
      UseOwnFont = False
      UseRestSpace = True
      Visible = True
      WholeRow = False
    end
    object bbAddEditDoljnost: TdxBarButton
      Caption = #1044#1086#1083#1078#1085#1086#1089#1090#1085#1086#1077' '#1088#1072#1089#1087#1080#1089#1072#1085#1080#1077
      Category = 0
      Hint = #1056#1077#1076#1072#1082#1090#1080#1088#1086#1074#1072#1085#1080#1077' '#1076#1086#1083#1078#1085#1086#1089#1090#1077#1081
      Visible = ivAlways
      ImageIndex = 50
      PaintStyle = psCaptionGlyph
    end
    object beSelectDoljnost: TcxBarEditItem
      Caption = #1042#1099#1073#1086#1088' '#1076#1086#1083#1078#1085#1086#1089#1090#1080'(-'#1077#1081'):'
      Category = 0
      Hint = #1042#1099#1073#1086#1088' '#1076#1086#1083#1078#1085#1086#1089#1090#1080'(-'#1077#1081')'
      Visible = ivAlways
      ShowCaption = True
      Width = 300
      PropertiesClassName = 'TcxButtonEditProperties'
      Properties.Buttons = <
        item
          Default = True
        end>
      Properties.IncrementalSearch = False
      Properties.ReadOnly = True
      InternalEditValue = ''
    end
    object cxBarEditItem1: TcxBarEditItem
      Caption = #1042#1099#1073#1086#1088' '#1076#1086#1083#1078#1085#1086#1089#1090#1080'(-'#1077#1081'):'
      Category = 0
      Hint = #1042#1099#1073#1086#1088' '#1076#1086#1083#1078#1085#1086#1089#1090#1080'(-'#1077#1081'):'
      Visible = ivAlways
      Width = 100
      PropertiesClassName = 'TcxLabelProperties'
    end
    object cxBarEditItem2: TcxBarEditItem
      Caption = #1053#1072' '#1076#1072#1090#1091':'
      Category = 0
      Hint = #1053#1072' '#1076#1072#1090#1091':'
      Visible = ivAlways
      Width = 100
      PropertiesClassName = 'TcxLabelProperties'
    end
    object bDate: TcxBarEditItem
      Caption = #1053#1072' '#1076#1072#1090#1091':'
      Category = 0
      Hint = #1044#1072#1090#1072' '#1085#1072#1093#1086#1078#1076#1077#1085#1080#1103' '#1074' '#1076#1086#1083#1078#1085#1086#1089#1090#1080
      Visible = ivAlways
      ShowCaption = True
      Width = 150
      PropertiesClassName = 'TcxDateEditProperties'
      InternalEditValue = 40921d
    end
    object bbsearch: TdxBarButton
      Caption = #1048#1089#1082#1072#1090#1100
      Category = 0
      Hint = #1048#1089#1082#1072#1090#1100
      Visible = ivAlways
      ImageIndex = 53
      PaintStyle = psCaptionGlyph
    end
    object dxBarButton2: TdxBarButton
      Align = iaRight
      Caption = 'New Button'
      Category = 0
      Hint = #1069#1082#1089#1087#1086#1088#1090' '#1074' Excel'
      Visible = ivAlways
      ImageIndex = 48
    end
    object dxBarButton3: TdxBarButton
      Align = iaRight
      Caption = #1042#1080#1076#1080#1084#1086#1089#1090#1100' '#1082#1086#1083#1086#1085#1086#1082
      Category = 0
      Hint = #1042#1080#1076#1080#1084#1086#1089#1090#1100' '#1082#1086#1083#1086#1085#1086#1082
      Visible = ivAlways
      ImageIndex = 17
    end
    object dxBarButton4: TdxBarButton
      Caption = 'New Button'
      Category = 0
      Hint = #1044#1086#1073#1072#1074#1080#1090#1100
      Visible = ivAlways
      ImageIndex = 57
      OnClick = dxBarButton4Click
    end
    object tbEditK: TdxBarButton
      Caption = 'New Button'
      Category = 0
      Hint = #1048#1079#1084#1077#1085#1080#1090#1100
      Visible = ivAlways
      ImageIndex = 54
    end
    object dxBarButton6: TdxBarButton
      Caption = 'New Button'
      Category = 0
      Hint = #1059#1076#1072#1083#1080#1090#1100
      Visible = ivAlways
      ImageIndex = 10
      OnClick = dxBarButton6Click
    end
    object dxBarButton5: TdxBarButton
      Caption = 'New Button'
      Category = 0
      Hint = #1044#1086#1073#1072#1074#1080#1090#1100
      Visible = ivAlways
      ImageIndex = 57
    end
    object dxBarButton7: TdxBarButton
      Caption = 'New Button'
      Category = 0
      Hint = #1048#1079#1084#1077#1085#1080#1090#1100
      Visible = ivAlways
      ImageIndex = 54
    end
    object dxBarButton8: TdxBarButton
      Caption = 'New Button'
      Category = 0
      Hint = #1059#1076#1072#1083#1080#1090#1100
      Visible = ivAlways
      ImageIndex = 10
    end
    object rgDopl: TcxBarEditItem
      Caption = 'New Item'
      Category = 0
      Visible = ivNever
      Width = 100
      PropertiesClassName = 'TcxRadioGroupProperties'
      Properties.Columns = 3
      Properties.DefaultValue = 2
      Properties.Items = <
        item
          Caption = #1053#1072#1095#1080#1089#1083#1077#1085#1080#1103
          Value = 0
        end
        item
          Caption = #1044#1086#1087#1083#1072#1090#1099
          Value = 1
        end
        item
          Caption = #1042#1089#1077
          Value = 2
        end>
      InternalEditValue = 2
    end
    object dxBarSubItem1: TdxBarSubItem
      Caption = 'New SubItem'
      Category = 0
      Visible = ivAlways
      ItemLinks = <>
    end
    object bbAddPDoljnost: TdxBarButton
      Caption = #1055#1088#1080#1074#1103#1079#1082#1072' '#1095#1077#1083#1086#1074#1077#1082#1072' '#1082' '#1076#1086#1083#1078#1085#1086#1089#1090#1080
      Category = 0
      Hint = #1055#1088#1080#1074#1103#1079#1082#1072' '#1095#1077#1083#1086#1074#1077#1082#1072' '#1082' '#1076#1086#1083#1078#1085#1086#1089#1090#1080
      Visible = ivAlways
      DropDownEnabled = False
      ImageIndex = 40
      PaintStyle = psCaptionGlyph
    end
    object bbRefresh: TdxBarButton
      Caption = #1054#1073#1085#1086#1074#1080#1090#1100' '
      Category = 0
      Hint = #1054#1073#1085#1086#1074#1080#1090#1100
      Visible = ivAlways
      ImageIndex = 55
      PaintStyle = psCaptionGlyph
    end
    object bbService: TdxBarButton
      Category = 0
      Visible = ivNever
      ImageIndex = 60
    end
    object bTRAdd: TdxBarButton
      Caption = 'New Button'
      Category = 0
      Hint = 'New Button'
      Visible = ivAlways
      ImageIndex = 57
    end
    object bTrEdit: TdxBarButton
      Caption = 'New Button'
      Category = 0
      Hint = 'New Button'
      Visible = ivAlways
      ImageIndex = 54
    end
    object bTrDel: TdxBarButton
      Caption = 'New Button'
      Category = 0
      Hint = 'New Button'
      Visible = ivAlways
      ImageIndex = 10
    end
  end
end
